home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 116
/
Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64
/
120 -ende-
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
667b
|
18 lines
15 p=p+1:print"[147]";:poke53280,.:poke53281,.:
20 print"[145][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221] [221]":forc=3to13:poke56325,1
25 t$=" ende ":print"[145]";:poke646,c*(rnd(1))
30 print"[163][163][163][163][163][146] [146] [146] [146] [146] [146] [146][163][163][163][163][163]":next
35 print"";:forx=1tolen(t$)
40 y=asc(mid$(t$,x,1)):ify=46ory=32thenm=m+1:z=y:goto50
45 forz=64toy
50 ify=46thenz=46:asc(mid$(t$,x,1))
55 ifz>128andz<>46andz<160thenz=160
60 poke214,p+p:print:poke56325,55:ifp=4then85
65 printtab(x+(39-len(t$))/2);
70 printchr$(z);:ifm>0thenm=0:nextx:goto80
71 s=54272:pokes+24,15:pokes+6,255:pokes+4,81:i=i+x:forn=1toi*(rnd(2))stepz
72 pokes+5,9*11:pokes+1,n/7 :pokes+4,29:pokes+4,32 ::next:pokes+4,0
75 nextz,x:
80 goto15
85 print"[147][146] ende ";:forz=1to750:next:sys2048